sub msx2cls():
  asm
    ld ix,$0115
    call $015C
    end asm
  end sub

'   cls (msx2) - cls 
'   ld ix,$0115    #- cls (subrom)
'   call $015C     #- subrom
